home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / zxam20.lha / ZXAM Spectrum / ZXAM_Rexx / Español / ZXAMRun.dopus < prev   
Encoding:
Text File  |  1995-06-05  |  954 b   |  38 lines
  1. /* Este script carga un snapshot de disco */
  2.  
  3. /* Usado originalmente para arrancar juegos */
  4. /* desde el DirOpus a través de un FileType */
  5.  
  6. /* Necesita el emulador arrancado, a menos que modifiques el script para */
  7. /* que arranque el emulador desde el directorio donde se encuentra */
  8.  
  9. parse arg nombre    /* recoge argumento */
  10.  
  11. /* Usa los conversores internos del emulador */
  12.  
  13.     address command
  14.  
  15.     if ~show(ports,ZXAM_REXX) then do
  16.         requestchoice 'title "ZXAM Script error..." body "No encuentro el puerto del emulador!!" gadgets "AARGH!"'
  17.         exit
  18.         end
  19.  
  20.  
  21. /* Almacenar el estado inicial del emulador */
  22.  
  23.     running=zxamactrun()    /* 1=en marcha */
  24.     zxamstop()              /* lo paramos */
  25.  
  26.  
  27. /* cargar el fichero */
  28.     
  29.     bloque=zxampploadfile(nombre)    /* cargamos TODO el fichero */
  30.     
  31.     formato=zxamparseloaded(bloque)        /* reconoce y carga el fichero */
  32.     
  33.     if formato~='' then zxamnameformat(zxamfilepart(nombre),formato)
  34.     
  35.     if running=1 then zxamrun()
  36.  
  37.     exit
  38.